home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / misc / emu / QDOS2.lha / QLsource / ROMsrc / KEYUK / KEYUK_asm
Text File  |  1995-08-30  |  3KB  |  84 lines
  1.     SECTION    KEYUK
  2.  
  3. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  4. ; KEYUK_asm - UK Keybord support
  5. ;       - last modified 30/08/95
  6.  
  7. ; The source necessary to implement a UK keymap.
  8. ; Amiga-QDOS defaults to a German keymap
  9.  
  10. ; Amiga-QDOS sources by Rainer Kowallik
  11. ;    ...some changes by Mark J Swift
  12.  
  13. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  14. ;  ROM header
  15.  
  16. BASE:
  17.     DC.L    $4AFB0001    ; ROM recognition code
  18.     DC.W    PROC_DEF-BASE
  19.     DC.W    INIT-BASE
  20.     DC.B    0,28,'Amiga-QDOS UK Keymap v1.04 ',$A
  21.  
  22. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  23. ;  start of ROM code
  24.  
  25. INIT:
  26.     movem.l    a0/a3,-(sp)
  27.     LEA    QLASCII(PC),A0    ; address of keyboard table
  28.     MOVE.L    A0,D1        ; in d1
  29.     MOVEQ    #$27,D0        ; MT_ASC (Amiga-QDOS 3.10
  30.     TRAP    #1        ; and later, only)
  31.     movem.l    (sp)+,a0/a3
  32.     RTS
  33.  
  34. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  35. ;  British keyboard table
  36.  
  37. QLASCII:
  38.     DC.B    $27,'1','2','3','4','5','6','7','8','9','0','-','=','\',0,'0'
  39.     DC.B    'q','w','e','r','t','y','u','i','o','p',$5B,$5D,0,'1','2','3'
  40.     DC.B    'a','s','d','f','g','h','j','k','l',';','#','#',0,'4','5','6'
  41.     DC.B    '<','z','x','c','v','b','n','m',$2C,'.','/',0,0,'7','8','9'
  42.     DC.B    ' ',194,9,10,10,27,202,0,0,0,'-',0,208,216,200,192
  43.     DC.B    232,236,240,244,248,234,238,242,246,250,'(',')','/','*','+',27
  44. QLASC_SH:
  45.     DC.B    '~','!','"',$60,'$','%','^','&','*','(',')','_','+','|',0,'0'
  46.     DC.B    'Q','W','E','R','T','Y','U','I','O','P',$7B,$7D,0,'1','2','3'
  47.     DC.B    'A','S','D','F','G','H','J','K','L',$3A,'@',$50,0,'4','5','6'
  48.     DC.B    '>','Z','X','C','V','B','N','M','<','>','?',0,0,'7','8','9'
  49.     DC.B    252,194,253,254,254,127,202,0,0,0,'-',0,212,220,204,196
  50.     DC.B    234,238,242,246,250,232,236,240,244,248,'{','}','/','*','+',0
  51. QLASC_CT:
  52.     DC.B    0,145,146,147,148,149,150,151,152,153,144,0,0,188,0,'0'
  53.     DC.B    17,23,5,18,20,25,21,9,15,16,187,189,0,'1','2','3'
  54.     DC.B    1,19,4,6,7,8,10,11,12,0,0,0,0,'4','5','6'
  55.     DC.B    0,26,24,3,22,2,14,13,140,142,141,0,0,'7','8','9'
  56.     DC.B    ' ',194,9,10,10,128,202,0,0,0,'-',0,210,218,202,194
  57.     DC.B    233,237,241,245,249,235,239,243,247,251,91,93,'/','*','+',0
  58. QLASC_SC:
  59.     DC.B    '`',129,160,131,132,133,0,0,138,136,137,0,0,28,0,'0'
  60.     DC.B    177,183,165,178,180,186,181,169,175,176,27,29,0,'1','2','3'
  61.     DC.B    161,179,164,166,167,168,170,171,172,0,30,0,0,'4','5','6'
  62.     DC.B    0,185,184,163,182,162,174,173,156,158,0,0,0,'7','8','9'
  63.     DC.B    ' ',194,9,10,10,31,202,0,0,0,'-',0,214,222,206,198
  64.     DC.B    235,239,243,247,251,233,237,241,245,249,91,93,'/','*','+',0
  65.  
  66. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  67. ;  BASIC extensions specific to AMIGA QDOS
  68.  
  69. PROC_DEF:
  70.     dc.w    1
  71.     dc.w    INIT-*
  72.     dc.b    5,'KEYUK'
  73.     dc.w    INIT-*
  74.     dc.b    5,'KEZUK'
  75.  
  76.     dc.w    0
  77.  
  78.     dc.w    0
  79.  
  80.     dc.w    0
  81.  
  82. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  83.     END
  84.